home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / Developers / GAL ƒ / GAL examples / twos comp < prev   
Encoding:
Text File  |  1994-07-11  |  334 b   |  18 lines  |  [TEXT/ttxt]
  1. ; computes a subtraction by constructing the two's complement and adding
  2.  
  3.     copy        bottom=>R1        ;start with one value   
  4.     not        r1  
  5.     add        #1=>r1 
  6.     add        top=>r1  
  7.     copy        top=>r2 
  8.     subtract    bottom,r2 
  9.     compare    r1=>r2
  10.     jump:equal    correctend
  11.     
  12. incorrectend    halt
  13. correctend    halt            ;should end here
  14. bottom        constant    3
  15. top            constant    5
  16.      
  17.     end
  18.